home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / CASIOCOL.ZIP / KRILE1C.ZIP / SOURCE.ZIP / TEST2.ASI < prev    next >
Encoding:
Text File  |  1997-12-05  |  120 b   |  10 lines
  1. a$="Command|frog"
  2. a$=ucase$(a$)
  3. input b$;
  4. b=instr(a$,b$)
  5. if b>0 then
  6. print "found"
  7. else
  8. print"not found"
  9. endif
  10.